home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / TOWNCENTER.TCL < prev    next >
Encoding:
Text File  |  2002-06-13  |  4.0 KB  |  154 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   TownCenter
  6. #
  7. #   created:    15-Jun-2000 Bernd
  8. #   
  9. #   (C) COPYRIGHT 2000 RADONLABS GMBH
  10. #
  11.  
  12. proc towncenterwatch_normal {} {
  13.  
  14.     # vorerst hier unzerstoerbar. Bleibt so, bis es aufgesammelt
  15.     # (in BackPack) oder gebaut (kein Artefakt mehr) wird 
  16.     
  17.     if {[.getartefactmode] == "false"} {
  18.         .announcestate house
  19.     } elseif {[.iscollected] == "true"} {
  20.         .announcestate backpack
  21.     } elseif {[.getcreator] != "null"} {
  22.         .announcestate infactoryslot
  23.     }
  24. }
  25.  
  26. proc towncenterwatch_infactoryslot {} {
  27.  
  28.     # vorerst hier unzerstoerbar. Bleibt so, bis es aufgesammelt
  29.     # (in BackPack) oder gebaut (kein Artefakt mehr) wird 
  30.     if {[.getartefactmode] == "false"} {
  31.         .announcestate house
  32.     } elseif {[.iscollected] == "true"} {
  33.         .announcestate backpack
  34.     } elseif {[.getcreator] == "null"} {
  35.         .announcestate normal
  36.     }
  37. }
  38.  
  39. proc towncenterwatch_bauphase {} {
  40.  
  41.     # kann zerstoert oder wieder zusammengeklappt werden
  42.     if {[.iskilled] == "true"} {
  43.         .announcestate explode
  44.     } elseif {[.getartefactmode] == "true"} {
  45.         .announcestate normal
  46.     } elseif {[.isstatetimeover] == "true"} {
  47.         .announcestate house
  48.         usersymbolicname playerlighthouse
  49.     }
  50. }
  51.  
  52.  
  53. proc towncenterwatch_house {} {
  54.     /game/handler/feedback.registerenergylow [psel]
  55.     # kann zerstoert oder wieder zusammengeklappt werden
  56.     if {[.iskilled] == "true"} {
  57.         .announcestate explode
  58.     } elseif {[.getartefactmode] == "true"} {
  59.         .announcestate normal
  60.     } elseif {[.isdooropen] == "true"} {
  61.         .announcestate open
  62.     } elseif {[.removebuilding] == "true"} {
  63.         .announcestate remove
  64.     }
  65. }
  66.  
  67. proc towncenterwatch_explode {} {
  68.  
  69.     # Uebergang zum Artefakt oder Wegnehmen
  70.     if {[.isanimfinished] == "true"} {
  71.         if {[.getcharges] <= 0} {
  72.             .setremoveable true
  73.         } else {
  74.             .announcestate normal
  75.         .removefromisland
  76.         }
  77.     }
  78. }
  79.  
  80. proc towncenterwatch_remove {} {
  81.  
  82.     # Uebergang zum Artefakt oder Wegnehmen
  83.     if {[.isanimfinished] == "true"} {
  84.         if {[.getcharges] <= 0} {
  85.             .setremoveable true
  86.         } else {
  87.             .announcestate normal
  88.         .removefromisland
  89.         }
  90.     }
  91. }
  92.  
  93. proc towncenterwatch_backpack {} {
  94.  
  95.     # Moeglich: usgeworfen (Nicht mehr "gesammelt") oder im
  96.     # Menue gezeigt (sichtbar)
  97.     if {[.iscollected] == "false"} {
  98.         .announcestate normal
  99.     } elseif {[.isvisible] == "true"} {
  100.         .announcestate menue
  101.     }
  102. }
  103.  
  104. proc towncenterwatch_menu {} {
  105.  
  106.     if {[.isvisible] == "false"} {
  107.         .announcestate backpack
  108.     } elseif {[.getartefactuse] == "true"} {
  109.         .announcestate build
  110.     } elseif {[.iscollected] == "false"} {
  111.         .announcestate normal
  112.     }
  113. }
  114.  
  115. proc towncenterwatch_build {} {
  116.  
  117.     if {[.iskilled] == "true"} {
  118.         .announcestate explode
  119.     } elseif {[.getartefactmode] == "false"} {
  120.         .announcestate bauphase
  121.     } elseif {[.getartefactuse] == "false"} {
  122.         .announcestate backpack
  123.     }
  124. }
  125.  
  126. proc towncenterwatch_cinematic {} {
  127.  
  128.     # empty
  129. }    
  130.  
  131. #-------------------------------------------------------------------------------
  132. # Bewegt Insel in meinen Clan. Wird aufgerufen vom gebauten TownCenter
  133. #-------------------------------------------------------------------------------
  134. proc moveislandintomyclan {} {
  135.  
  136.     set the_island [.getparentvehicle]
  137.     if {$the_island == "null"} {
  138.         puts "Aua! TownCenter hat kein Parentvehicle!"
  139.     } else {
  140.         set clan      [$the_island.getclan]
  141.         set my_clan   [.getclan]
  142.         set my_clanid [$my_clan.getname]
  143.  
  144.         # store the island. Name of the island will be changed!
  145.         # It is much simplier, to store the name BEFORE we move it!
  146.         $clan.unsetplayerisland
  147.         $my_clan.setplayerisland $the_island
  148.  
  149.         $clan.moveobjecttoclan $the_island $my_clanid
  150.     }
  151. }
  152.         
  153.  
  154.